10 REM DRAGON BOOT BY JC HILTY 7/87 12 POKE53280,2:POKE53281,0:PRINTCHR$(142)"[147][154]"TAB(9)"[154]LOADING DRAGONWICK...." 13 POKE147,0:SYS57812"UNPACKER",8,1:SYS62631 14 POKE147,0:SYS57812"PAC.DRAGONWICK",8,1:SYS62631 16 POKE249,224:POKE250,204:POKE251,0:POKE252,96:POKE253,0:POKE254,0 18 SYS51456:SYS51459 80 S=54272:FORX=0TO24:POKES+X,0:NEXT 81 POKES+3,8:POKES+5,41:POKES+6,89:POKES+14,117:POKES+18,16:POKES+24,143 82 READFR,DR:IFFR=0THENRESTORE:GOTO82 83 POKES+4,65 84 FORT=1TODR:FQ=FR+PEEK(S+27)/2 85 HF=INT(FQ/256):LF=FQAND255 86 POKES,LF:POKES+1,HF:NEXT:POKES+4,64 87 GETA$:IFA$="Y"THEN500 88 IFA$="N"THEN90 89 GOTO82 90 PRINTCHR$(147):PRINT"[154]LOADING MAIN PROGRAM....":PRINT 92 PRINT"[144]LOAD"CHR$(34)"DRAGONWICK"CHR$(34)",8":PRINT:PRINT:PRINT:PRINT 93 PRINT"RUN":PRINTCHR$(19) 94 POKE198,2:POKE631,13:POKE632,13 95 END 99 DATA 6430,8 100 DATA 8583,4,8101,4,8583,4,6430,4 102 DATA 8583,4,8101,4,8583,4,6430,4 104 DATA 8583,4,8101,4,8583,4,6430,4 106 DATA 7217,4,6430,4,5728,4,5407,4 108 DATA 5728,4,7217,4,4817,4,7217,4 110 DATA 5728,4,7217,4,4817,4,7217,4 112 DATA 5728,4,7217,4,9634,4,8583,4 114 DATA 8101,4,6430,4,7217,4,8101,4 116 DATA 8583,4,8101,4,8583,4,6430,4 118 DATA 8583,4,8101,4,8583,4,6430,4 120 DATA 8583,4,8101,4,8583,4,6430,4 122 DATA 7217,4,6430,4,5728,4,5407,4 124 DATA 5728,4,7217,4,6430,4,5728,4 126 DATA 5407,4,4817,4,4291,4,4050,4 128 DATA 4291,8,5407,8,4291,8,6430,8 130 DATA 5407,4,6430,4,4291,4,6430,4 132 DATA 5407,4,6430,4,4291,4,6430,4 134 DATA 5407,4,6430,4,4291,4,6430,4 136 DATA 7217,4,6430,4,5728,4,5407,4 138 DATA 5728,4,7217,4,4817,4,7217,4 140 DATA 5728,4,7217,4,4817,4,7217,4 142 DATA 5728,4,7217,4,4817,4,8583,4 144 DATA 8101,4,7217,4,6430,4,5728,4 146 DATA 5407,4,6430,4,4291,4,6430,4 148 DATA 5407,4,6430,4,4291,4,6430,4 150 DATA 5407,4,6430,4,4291,4,6430,4 152 DATA 7217,4,6430,4,5728,4,5407,4 154 DATA 5728,4,7217,4,6430,4,5728,4 156 DATA 5407,4,4817,4,4291,4,4050,4 158 DATA 4291,8,5407,8,4291,16,0,0 500 POKE147,0:SYS57812"PAC.STORYONE",8,1:SYS62631 502 POKE249,224:POKE250,204:POKE251,0:POKE252,96:POKE253,0:POKE254,0 503 SYS51456 504 POKE198,0:WAIT198,1 505 POKE147,0:SYS57812"PAC.STORYTWO",8,1:SYS62631 506 POKE249,224:POKE250,204:POKE251,0:POKE252,96:POKE253,0:POKE254,0 507 SYS51456 508 POKE198,0:WAIT198,1 510 POKE147,0:SYS57812"PAC.STORYTHREE",8,1:SYS62631 511 POKE249,224:POKE250,204:POKE251,0:POKE252,96:POKE253,0:POKE254,0 512 SYS51456 513 POKE198,0:WAIT198,1 514 POKE147,0:SYS57812"PAC.STORYFOUR",8,1:SYS62631 515 POKE249,224:POKE250,204:POKE251,0:POKE252,96:POKE253,0:POKE254,0 516 SYS51456 517 POKE198,0:WAIT198,1 520 GOTO90